home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
OS2
/
PROGRAM
/
LB05
/
GRAPHICS.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-12-29
|
398b
|
20 lines
color$(0) = "red"
color$(1) = "green"
color$(2) = "blue"
'open a graphics window
open "graphics" for graphics as #1
print #1, "fill black"
print #1, "down"
print #1, "home"
print #1, "north"
for x = 1 to 75
print #1, "color "; color$(i)
print #1, "go ";x
print #1, "turn 125"
i = i + 1
if i = 3 then i = 0
next x
input r$
close #1